perm filename QUADX[MUS,LCS] blob sn#049512 filedate 1974-01-08 generic text, type T, neo UTF8
00100	QQQ
00200	FUNC 0,512/P2 1/P4 QUADF MOVE/512 0,1440*; MOVING CIRCLE
00300	P5 MO/256 20,10/256 10 20*; DISTANCE FROM CENTER
00400	P6 MOVE/512 -20 20*/P7 MO/256 -20 0/256 0 -20*/END; /P8 SUBN/END;  CENTER IS AT 0,0
00500	RUN;
00600	
00700	QQQ       ; MAKES A SPIRL
00800	FUNC 0,,512/P2 1/P4 QUADF MOVE/512 0,1440*; SPIRAL
00900	P5 MO/512 0 30*; DISTANCE FROM CENTER
01000	RUN;
01100	
01200	QQQ
01300	FUNC 0,,512/P2 1/P4 QUADF MOVE/512 0,1440*; SPIRAL
01400	P5 MO/512 0 30*; DISTANCE FROM CENTER
01500	P6 MO/512 -30 30*/P7 0/END;  CENTER IS AT 0,0
01600	RUN;
01700	AA       ; FIGURE 8
01800	FUNC   0 512/P2 1/P11 QUFC MO/256 180 540/256 0 360*;                         
01900	P12  7.5/P14 MO/256 7.5/-7.5*/RUN;                                        
02000	
02100	MM        ; THE LETTER M
02200	FUNC   0 512/P2 1/P3 QUFX MO/150 -10/216 -10 10*;                            
02300	P4 MO/150 -15 15/106 15 0/106 0 15/150 15 -15*/RUN;                     
02400	
02500	AAA      ; THE LETTER D
02600	FUNC  0 512/P2 1/P3 QUFX MO/80  -4 -10/160 -10/80 -10 -4*;                      
02700	P4 MO/80 -15/160 -15 15*/END;                                           
02800	FUNC  320/P3 QUFC MO/192 0 182*/P4 15/P5 -4/RUN;                                   
02900	
03000	SS        ; ZZZZZ
03100	FUNC  0 512/P2 1/P3 QUFC MO/128 270 450*/P4 7.5/P6 P4/END;
03200	FUNC  128/P3 QUFX 7.5/P4 MO/128 7.5 -7.5*/END;                               
03300	FUNC  256/P3 QUFC  MO/128 90 270*/P4 7.5/P6 -7.5/END;                        
03400	FUNC  384/P3 QUFX  -7.5/P4 MO/128 -7.5 7.5*/RUN;                             
03500